home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
text
/
tex
/
bibcard_091.lha
/
BibCard
/
Install
< prev
next >
Wrap
Text File
|
1995-08-14
|
2KB
|
106 lines
;
; install $VER 0.91 (14.8.1996)
;
; This is the installerscript for BibCard
;
(set @default-dest "ram:")
(set #bad-kick
(cat "You need at least kickstart v2.04 (V37)")
)
(set #install-msg
(cat "\n\nBibCard instalation script.\n\n"
"This script installs BibCard on your Amiga.\n\n"
"BibCard © 1995 Matthijs Luger\n"
"All rights reserved."
))
;=============================================================================
; make sure we are running under a 2.04 ROM
(set kick_ver (/ (getversion) 65536))
(if (< kick_ver 37)
(abort #bad-kick)
)
;=============================================================================
(message #install-msg)
(welcome)
;=============================================================================
(set destdir
(askdir
(prompt "Where should BibCard be installed?")
(help @askdir-help)
(default @default-dest)
(disk)
)
)
(set @default-dest destdir)
;=============================================================================
(set vernum (getversion "BibCard"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set ver_msg (cat "BibCard v" ver "." rev))
(message "\nCopy " ver_msg "\nto " destdir " ?")
(copylib
(prompt ("Copy BibCard to %s." destdir))
(help @copylib-help)
(source "BibCard")
(dest destdir)
(infos)
(confirm)
)
(complete 50)
;=============================================================================
(message "BibCard uses the TextField gadget\n"
"made by Mark Thomas.\n\n"
"Under v3.0+ it will be installed in\n"
"SYS:Classes/gadgets.\n\n"
"Under v2.0 and v2.1 it must\n"
"be installed in the same\n"
"directory as BibCard."
)
;=============================================================================
(if (< kick_ver 40)
(
(set destdir (tackon destdir "gadgets"))
)
(
(set destdir "SYS:Classes/gadgets")
)
)
(message "\nInstall textfield.gadget.\n\n"
"textfield.gadget will\n"
"be installed in:\n\n" destdir
)
(copylib
(prompt ("Copy textfield.gadget to %s." destdir))
(help @copylib-help)
(source "Gadgets/textfield.gadget")
(dest destdir)
(infos)
(confirm)
)
(complete 100)